home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / fake2.arc / FAKE3.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1986-11-01  |  2.2 KB  |  77 lines
  1. 551  CLS:KEY OFF:LOCATE ,,0
  2. 552  COLOR 6:PRINT "Redialing Number..... Please wait":FOR X=1 TO 4000:NEXT X
  3. 560  COLOR 10:LOCATE 2,1:PRINT "Connected......."
  4. 561  FOR X=1 TO 4000:NEXT X
  5. 562  PRINT "Operating at 1200 baud.":FOR X=1 TO 3000:NEXT X:PRINT "Simple asd@#$24 code system":FOR X=1 TO 4000:NEXT X
  6. 571  COLOR 4:PRINT "Tying random code search":FOR X=1 TO 8000:NEXT X
  7. 572  COLOR 2:PRINT "First string Found":FOR X=1 TO 4:PRINT XX:NEXT X:FOR D=1 TO 6000:NEXT D
  8. 573  COLOR 6:PRINT "Starting second string , please wait.":FOR X=1 TO 9000:NEXT X
  9. 574  COLOR 3:PRINT "String not Found.":FOR X=1 TO 7000:NEXT X
  10. 575  COLOR 4:PRINT "Begining Smashing PROCESS.":FOR X=1 TO 8000:NEXT X
  11. 580  LOCATE 16,30:PRINT "SMASHING process begining in...."
  12. 590  LOCATE 16,61:PRINT "20"
  13. 591  FOR X=1 TO  700:NEXT X
  14. 592  LOCATE 16,61:PRINT "19"
  15. 593  FOR X=1 TO  700:NEXT X
  16. 594  LOCATE 16,61:PRINT "18"
  17. 595  FOR X=1 TO  700:NEXT X
  18. 596  LOCATE 16,61:PRINT "17"
  19. 597  FOR X=1 TO  700:NEXT X
  20. 598  LOCATE 16,61:PRINT "16"
  21. 599  FOR X=1 TO  700:NEXT X
  22. 610  LOCATE 16,61:PRINT "15"
  23. 611  FOR X=1 TO  700:NEXT X
  24. 612  LOCATE 16,61:PRINT "14"
  25. 613  FOR X=1 TO  700:NEXT X
  26. 614  LOCATE 16,61:PRINT "13"
  27. 615  FOR X=1 TO  700:NEXT X
  28. 616  LOCATE 16,61:PRINT "12"
  29. 617  FOR X=1 TO  700:NEXT X
  30. 618  LOCATE 16,61:PRINT "11"
  31. 619  FOR X=1 TO  700:NEXT X
  32. 620  LOCATE 16,61:PRINT "10"
  33. 621  FOR X=1 TO 700:NEXT X
  34. 622  LOCATE 16,61:PRINT "09"
  35. 623  FOR X=1 TO 700:NEXT X
  36. 624  LOCATE 16,61:PRINT "08"
  37. 625  FOR X=1 TO 700:NEXT X
  38. 650  LOCATE 16,61:PRINT "07"
  39. 660  FOR X=1 TO  700:NEXT X
  40. 670  LOCATE 16,61:PRINT "06"
  41. 680  FOR X=1 TO  700:NEXT X
  42. 690  LOCATE 16,61:PRINT "05"
  43. 700  FOR X=1 TO  700:NEXT X
  44. 710  LOCATE 16,61:PRINT "04"
  45. 720  FOR X=1 TO  700:NEXT X
  46. 730  LOCATE 16,61:PRINT "03"
  47. 740  FOR X=1 TO  700:NEXT X
  48. 750  LOCATE 16,61:PRINT "02"
  49. 760  FOR X=1 TO  700:NEXT X
  50. 770  LOCATE 16,61:PRINT "01"
  51. 780  FOR X=1 TO  700:NEXT X
  52. 785  LOCATE 16,61:PRINT "00"
  53. 790  FOR X=1 TO 1000:NEXT X
  54. 800  LOCATE 16,30:PRINT "Process is completed, go ahead          "
  55. 805  FOR X=1 TO 1000:NEXT X
  56. 810  CLS:COLOR 6
  57. 820  INPUT A$
  58. 830  PRINT "Pass #300273 to preform that function":PRINT " 700000 min left"
  59. 840  INPUT A$
  60. 850  PRINT "Sysop enabling code search for user.":COLOR 4:LOCATE 5,49:PRINT "Sysop message:Sorry someone got on the board today and crashed us, I'am just checking your password and code entry. I'am sure it's not you but I'am just going to play it safe."
  61. 860  COLOR 6:INPUT A$
  62. 870  PRINT "System Interupted by Sysop; searching for code # of user #3861215a"
  63. 880  FOR X=1 TO 4000:NEXT X
  64. 890  PRINT "Sysop online: Sysop wants to chat"
  65. 900  INPUT A$
  66. 910  PRINT "Sysop forcing chat to user #3861215a"
  67. 920  INPUT A$
  68. 930  PRINT "Hey, I'am going to shut down for security reasons... Sorry"
  69. 931  INPUT A$
  70. 932  COLOR 2:PRINT " Should I fry em'?"
  71. 933  INPUT A$
  72. 934  IF A$="y" THEN 935 ELSE CLS:PRINT "NO CARRIER":PRINT "Program End":GOTO 950
  73. 935  INPUT A$
  74. 936  SOUND 1000,75
  75. 940  PRINT "Board fried. Ending program, you really make me sick!"
  76. 950  END
  77.